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INTEGER PROCEDURE GETTOKEN(REFERENCE TO OBJECT, REFERENCE TO TOKEN); 
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TOKENINXV := TOKEN GETTOKEN ; 

% TOKEN_GETTOKEN is a procedure which obtains an available slot 
% in the token data array. 

% TOKENRETURNTOKEN is the complementary procedure. It returns a 
% slot in the token data array to the available list. 
IF TOKENINXV EQL 0 THEN 
BEGIN 

% No slot available 

GETTOKENV : = TOKENRESOURCELIMTT; 
END ELSE 
BEGIN 

LOCK(TOKEN DATA[TOKENINXV] .LOCK); 
IF OBJECT . TOKENINX NEQ 0 THEN 
BEGIN 

GETTOKENV := TOKEN ALREADYDONE; 
EXISTING_TOKENINXV : = OBJECT. TOKENINX; 
END ELSE 
BEGIN 

TOKEND AT A [TOKENINXV] . REUSECOUNT : = 
TOKEN_DATA[TOKENINXV].REUSE_COUNT+ 1; 
TOKENDATA [TOKENINXV] .OBJECTREFERENCE : = 
REFERENCE TO OBJECT; 

TOKEND ATA [TOKENINXV] .VALID := TRUE; 
TOKENV.TOKENREUSECOUNTF : = 
TOKEN_DATA[TOKENINXV].REUSE_COUNT; 
TOKENV . TOKENINXF := TOKENINXV; 
OBJECT. TOKENINX : = TOKENINXV; 
GET TOKENV := TOKENSUCCESS; 
END; 

UNLOCK(TOKEN_D ATA[TOKENINXV] . LOCK) ; 
IF GETTOKENV EQL TOKENSUCCESS THEN 
BEGIN 

TOKEN := TOKENV; 
END ELSE 

IF GET TOKENV EQL TOKENALREADYDONE THEN 
BEGIN" 

LOCK(TOKEN DATA [EXISTING TOKENINXV] .LOCK); 
IF TOKEND AT A [EXISTINGTOKENINXV] VALID AND 
(TOKEN_DATA[EXISTmG_TOKENINXV].OBJECT_REFERENCE EQL 
REFERENCE TO OBJECT)~THEN 
BEGIN 

TOKENV . TOKENREUSECOUNTF : = 
TOKEN_DATA[EXISTING_TOKENINXV] .REUSECOUNT; 
TOKENV . TOKEN_INXF EXISTING_TOKENINXV; 
END ELSE 
BEGIN 

GET TOKENV : = TOKENB ADOBJECT ; 
END; 

UNLOCK(TOKEN_DATA[EXISTING_TOKENINXV] .LOCK) ; 
410 TOKEN RETURNTOKEN(TOKENINX V) ; 

IF GET TOKENV EQL TOKEN ALREADYDONE THEN 
TOKEN := TOKENV; 
END ELSE 
BEGIN 

TOKEN_RETURNTOKEN(TOKENINXV); 
END; 

END; - 
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INTEGER PROCEDURE 
OPERATION_VIA_TOKEN(TOKEN , OPERATIONPARAMETERS) ; 
BEGIN 
INTEGER 

TOKENINXV; 



TOKENINXV : = TOKEN. TOKENINXF; 
IF TOKENINXV LSS 1 OR 
TOKENINXV GEQ SIZE(TOKEN DATA) THEN 
420 BEGIN 

OPERATION VIA TOKEN := TOKEN TOKENIN VALID ; 
- END ELSE 
BEGIN 

421 LOCK(TOKEN_D AT A[TOKENINXVj . LOCK) ; 
|- IF (NOT TOKEND AT A [TOKENINXV] .VALID) OR 

(TOKEN_ DATA [TOKENINXV] .REUSE_COUNT NEQ 
TOKEN . TOKEN_REUSECOUNTF) THEN 

422 BEGIN 

OPERATION_VIA_TOKEN := TOKEN TOKENINVALID ; 
LEND ELSE 
r- BEGIN 

< perform operation on 

423 TOKEN_DATA[TOKENINXV] .OBJECT_REFERENCE, 
using OPERATION PARAMETERS > 
OPERATION VIA TOKEN := TOKEN SUCCESS; 

END; 

424UNLOCK(TOKEN_DATA[TOKENINXV].LOCK); 
END; 

END OPERATION VIA TOKEN; 
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OBJECT); 



EQL 



0; 



INTEGER PROCEDURE RETURN_TOKEN(REFERENCE TO 

BEGIN 

INTEGER 

RETURNTOKENV, 
TOKENINXV; 

430 TOKENINXV : = OBJECT . TOKENINX ; 
IF TOKENINXV EQL 0 THEN 
BEGIN 

% This assumes that OBJECT was allocated with TOKENINX 
% set to zero. 

RETURN_ TOKEN V : = TOKEN_NOTOKEN; 
END ELSE 
BEGIN 

431 LOCK(TOKEN_DATA[TOKENINXV] .LOCK); 

IF TOKEN_ DATA [TOKENINXV] .VALID CAND 

(TOKEN DATA[TOKENINXV] .OBJECT REFERENCE 



432 



REFERENCE TO OBJECT) THEN 
BEGIN 

TOKEND ATA [TOKENINXV] .VALID := FALSE; 
TOKEN_D ATA [TOKENINXV] . OB JECT_REFERENCE 



OBJECT . TOKENINX := 0; 

RETURNTOKENV := TOKENSUCCESS; 

END ELSE 
BEGIN 

RETURN_ TOKEN V : = TOKENNOTOKEN; 
END; 

433UNLOCK(TOKEN_DATA[TOKENINXV].LOCK); 
434 IF RETURN TOKENV EQL TOKEN_SUCCESS THEN 
TOKENRETURNTOKEN(TOKENINXV) ; 
END; 
END; 

435 RETURN TOKEN := RETURN TOKENV; 
END RETURN TOKEN; 
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INTEGER PROCEDURE TOKENGETTOKEN ; 
BEGIN 

440 LOCK(TOKEN_ A V AILLOCK) ; 

-IF TOKEN_AVAILHEAD EQL 0 AND 

SIZE(TOKENDATA) LSS TOKEN_MAXTOKENS THEN 
BEGIN 

% TOKEN MAXTOKENS is one more than the largest value 



■assuming 



% will fit in TOKEN INXF and in TOKENINX of OBJECT, 



% that TOKENDATA is indexed origin zero. 

< Expand TOKEN DATA, initializing new entries with 
LOCK free, VALID false, and REUSE_COUNT zero> 

< link new entries to avail list> 
1 END; 

CIF TOKEN AVAILHEAD NEQ 0 THEN 
BEGIN 
< De-link and return head of avail list> 
END ELSE 
BEGIN 

TOKEN GETTOKEN := 0; 
END; 

443 UNLOCK(TOKEN_AV AILLOCK) ; 

END TOKEN_GETTOKEN; 701^ 

PROCEDURE TOKEN RETURNTOKEN(TOKENINXV) ; 
VALUE TOKENINX V; 
INTEGER TOKENINXV; 
BEGIN 

IF TOKEN_DATA [TOKENINXV] .REUSE_COUNT LSS 
TOKEN REUSECOUNTMAX THEN 
BEGIN 

% TOKEN REUSECOUNTMAX is the largest value which will 

45C fct in 

% TOKEN_REUSECOUNTF and in REUSE_COUNT of 

TOKEN DATA. 

LOCK(TOKEN_AV AILLOCK) ; 

< link to avail list> 
UNLOCK(TOKEN_AV AILLOCK) ; 

END; 

END TOKEN_RETURNTOKEN; 

Figure 7 



